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Ztitle "STACKCMDS = Stacking Commands' 
module stackcmds 
ident='V04-000') = begin 


' 
LR REE ERE REET ETEK E EERE 
® 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
:* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'* ALL RIGHTS RESERVED 


is as tn ‘teria aS FURNISHED UNDER A LICENSE AND MAY BE USED AND ght 
ACCORDANCE THE TERMS OF CH C 


* 
* 
® 
*® 
® 
® 
® 
i 0 - 
i OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
ot 
i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® 
* 
® 
* 
* 
® 
* 
* 


't AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
'® CORPORATION. 


DIGITAL ASSUMES NO RESPONSIB 


; IBILIT 
!t SOFTWARE ON EQUIPMENT WHICH IS 


Y FOR THE USE OR _ RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 


LRA AAR ERATE AAA 
' 


ee 
: Facility: VAX/VMS Telephone Facility, Stacking Commands 
! Abstract: This module handles the following PHONE commands: 


Put people on ho 
UNHOLD Take people off of “hold. 
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Environment: 


Modified By: 


v03-001 PCA0047 Paul Anagnostopoulos 26-Mar-1982 


i 

' 

i 

' 

i 

i 

i 

Author: Paul C. Anagnostopoulos, Creation Date: 11 November 1980 
i 

i 

i 

e Minor changes to convert from process name to user name. 
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Asbttl "Module Declarations’ 
: Libraries and Requires: 


library ‘sys$library:starlet.l32'; 
require ‘phonereq'; 


Table of Contents: 


forward routine 


phn$hold_cmd: novalue, 
phn$held: novalue, 
phn$unhold_cmd: novalue, 
phn$unheld: novalue; 


External References: 


external routine 


phn$break_Link, 
phn$cmp_target, 
thee Feit 4 dy 
phn$fresh_hold, 
phn$fresh_screen, 
phn$inform, 
phn$make_tsb, 
phn$send_smb; 


Own Variables: 


Bee Fee Oe Oe Oe Oe Bee Be Oe Se Be SHH e Se SHS He Se Se SH Se HHS Oe Be Oe Se Se Se Oe Se Se Se Se Se Oe Oe Se ee Be Oe Be Oe Oe SESH Se Oe Be ae 
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STACKCMDS STACKCMDS = Stacking Commands 16-Sep-1984 02:18: AX-11 Bliss-32 V4.0-74 Pa 
v04-000 PHNSHOLD_CMD = Handle HOLD Command 1e-8ep-1984 95:38:38 PHONE. ROISTACKYMDS. 3951 = 
; He prio ! Rsbttl "PHNSHOLD_CMD = Handle HOLD Command' 
; 86 O18 1! Functional Description: 
; Of 0415 1! This routine handles the HOLD command. This command is used to 
: 4 pele ! put al. of the people currently engaged in conversation on hold. 
: 30 0416 ! Formal Parameters: 
; : non 
; 0418 1! 
eS. 0419 1 ! Implicit Inputs: 
; oe Bes9 } global data 
: 96 b252 1! Implicit Outputs: 
: 44 BeSz : global data 
: 196 bese ’ Returned Value: 
3 ! non 
101 0497 1 | ae 
: 18 prs : Side Effects: 
: 104 0430 1 i-- 
s 305 0431 1 
; 106 0432 1 
; + 4 oh $ global routine phn$hold_cmd: novalue = begin 
: 109 0435 2 Local 
s 110 0436 2 p: ref pub; 
; 11 0437 2 
3 6112 0438 2 
: Bt ere § ! First we check to see if we're talking to someone. If not, that's an error. 
; 115 0441 3 if not phnSconversing() then ( 
: HP Bees ; rene n$_notconv); 
: return; 
; «118 0444 2); 
: #6119 0445 2 
; 120 0446 2 ! How we scan the PUB chain and adjust the hold status of each person. 
: 121 0447 2! There are two cases: 
s te 0448 2! ® The persen is already on hold. We decrement their hold depth 
5 Yeo 0449 2! so that they are on a deeper hold. 
s 126 0450 2! 2. We are talking to the person or they have us on hold. 
s te 0451 2! Now they are on hold, and we have to send them a message to 
: 1¢6 bees : that effect. Also update the viewport flags. 
: 128 0454 2 p = _..phn$gq_pubhead(0); 
: 129 0455 until .p eqla phn$gq pubhead do ( 
; %3o 0456 if not .pCpub_v_temporary] then 
> 131 0457 4 if det Tplpub_w_depth]) eql -1 then ( 
: 132 0458 4 phn$sénd_smb(.p,smb__held); 
s 353 0459 4 pCpub_v_uhavehe(d] = true; 
: Hf need 4 3 phn$fresh_hold(.p); 
; Ht pn o¢ i Zs p= .pCpub_t_flink); 
: 138 0464 § ‘ 
; «4139 0465 § return; 
3 140 0466 
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; «(141 0467 1 end; 
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NT 
an PHNS_OK, PHNS$_ANSWERED 
RN 


PHN$~BUSYCALL; PHNS_CANCALL 


H - 
TRN PHNS$_HELPC PHNS$_HUNGUP 
TRN PHNS~ NUS TRANG, PHNS _LOGGEDOFF | 
TRN PHNS-REJECTED $"RING | 
RN PHNS$-REJECT ri ee | 
XTRN PHNS= “SEND INGMAIL | 
"EXTRN PHNS~ =BADCHD, PANS BADHELP 
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H 
*EXTRN PINS -NOSONTS, UNS » NOPRIV 
-EXTRN PHNS$_NOPROC, PHN$_ROTCON 

“EXTRN PHNS-ONLYNODE, PHNS ° PHONEBUSY 
*EXTRN st REMOTEER ROR 


. PHN W 

-EXTRN PHNS$GL_VIEWP cH E 

~EXTRN 4 HNSGB_ SCROLL, Pingea PUBHEAD 
-EXTRN PHNS$GB FLAGS, PHNSBREAK 

*EXTRN PHNSCR MP TARGET, SAIS CONVERS ING 
.EXTRN PHNSTRESH HOLD, PHNSFRE SH. SCREEN 
~EXTRN NSINFORM, PHNSM MAKE_TSB 

.EXTRN PHNSSENDS SMB 


-PSECT S$CODES,NOWRT,2 


.ENTRY PHNSHOLD_CMD, Save R2 : 0433 
CALLS #0, PHNSTONVERSING : 


PUSHL #PHNS NOTCONV 
ee . PANSINFORM 


@PHN$GQ_PUBHEAD, P 
MOVAB wor’ ie PUBHEAD, RO 
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; Routine Size: 
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v04-000 PHNSHELD = Handle Held Steering Message 14-Sep-1984 12:55:3 PHONE .SRCJSTACKCMDS.B32;1 (4) | 
; 16? pres ! Rsbttl *PHNSHELD = Handle Held Steering Message’ 
: 145 0470 1 | Functional Description: 
: 146 0471 1! his steering message routine handles the held message, which someone 
> 147 84 1! sends us when ey put us on hold. We have to record the fact 
; re Beo7 : } that we are on hold. 
: 150 0475 1 | Formal Parameters: 
; 0476 1! from_msg The address of a descriptor of the node/user name 
3 12¢ 0477 1! spec of the person putting us on hold. It is 
; 137 bees : followed by an eofrom character. 
; 155 0480 1! Implicit Inputs: 
5 128 ott : global data 
: 158 0088 1 i Implicit Outputs: 
; 122 ret: ' global data 
: 10) Bees : Returned Value: 
2 H non 
; 163 0488 1! 
; be 34 ’ Side Effects: 
: 166 0491 1 i-- | 
3: 167 0492 1 
> 168 0493 1 : : 
; 19? ahs § global routine phn$held(from_msg): novalue = begin 
: 171 0496 2 bind | 
; ve og 44 § from_msg_dsc = .from_msg: descriptor; 
: 17% 0499 2 Local | 
, 375 0500 2 status: long, 
; 176 0501 2 from_tsb: tsb, 
Dine be a 
: 179 0504 2 | 
; 180 0505 2 ! We begin by sgt: the message descriptor to exclude the eofrom character 
3 is) Bee 3 ! and making a TSB to parse the person's spec. 
: 183 0508 2 dec (from.msg_dscl lend) ; 
3: «(184 0509 2 status = phn$make_tsb(from_msg_dsc,from_tsb); 
; 13? Bao 2 check (.status); 
: 187 0512 : ! Now we scan the PUB chain, Look ing for the PUB representing this person. 
; 138 Bel? § ! If we find one, we set the ‘'they have us held” flag. 
; 190 0515 2 p = ..phn$gq_pubhead(0); | 
: «191 0516 until .p eqla phn$gq_ ubhead do ( 
3 192 0517 if (not “PEDO ~v_cemporery}) and 
; Hb b215 (not .plpub_v_hasuheldJ) then 
: 195 0520 4 if phnscmp target (ol ub_b_tsb],from_tsb) then ( | 
: 196 0521 4 plpub_v_hasuheldJ~= true; 
: p44 b25¢ 4 phn$fresh_hold(.p); 
: 199 bao, 3 : 
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KCMDS = Stacking Command 1o~300= 138% 0 18:1 AX-11 Bliss 
4 12:53:3 PHONE.SRCJS 
Rsbttl *"PHNSUNHOLD_CMD = Handle UNHOLD Command' 


Functional Description: 
This routine handles the UNHOLD command, which is used to bring | 
people off of hold. THe hold stack is tata Sa popped, bringing 
the last group of held people back to life. People currently in 
the conversation are hung up on. 


' Formal Parameters: 
none 


' 

i 

i 

i 

i 

i 

i 

' 

: Implicit Inputs: 
global data 
i 

' 

i 

i 

' 

i 

' 

i 
in 


! Implicit Outputs: 
global data 


' Returned Value: 
none 


Side Effects: 


global routine phn$unhold_cmd: novalue = begin 


local 
unholdable: byte, 
p: ref pub, pd: ref pub; 


! We want to make sure that there is at least one person on hold. 
! Otherwise the command should be ignored. Just scan the PUB chain 
! Looking for someone on hold. 


yer + | = arse: oro) 
p = ..phn$gq_pubhea : 
until PP egta’ phn$gq pubhead do ( 
if not -ppub v temporary] and .pCpub_v_uhaveheld] then ( 
unholdable = true; 
oop; 


nol 
exitl 
); 


: p = .pCpub_l_flink); 


! If no one was on hold, tell the user and forget it. 


if not .unholdable then ( 
phn$inform(phn$_noholds); 
: return; 


! Now we scan the PUB chain and act on each PUB. There are three cases: 
4 Te The person is down two or more hold levels. The person 
: remains on hold, but at a shallower depth. 
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PHNSUNHOLD_CMD = Handle UNHOLD Command 14-Sep-1984 1 PHONE. SRCJSTACKCMDS.832;1 
> 264 page ' 2. The gre is down one hold level. They are brought off of 
; 265 05 : hold statu 
; 08 B239 : Be The person “is currently being talked to. They are hung up on. 
: 268 059 hn$gq_pubhead(0); 

; 269 839 Until’ “ nats phnsgayp ubhea as ( 

3 £0 §23¢ = .plpu “ flink ! In case we delete PUB. 
3 sfé 0238 if not .pCpub_v_temporary] then 

3 a7 059 selectone inc (p bub. wdepth)) of set 

> 274 0598 4 C0): _ n$send_smb(.p,smb_ unhel¢); 

3; 275 0599 plpub_v_uhaveheld] ="Talse;); 

: 276 0600 

S err 0601 C1): phn$break_Link(.p,smb__hungup) ; 
, ern 0602 3 tes; 

; 279 060 H 

; 280 0604 p = .pe: 

3; 281 0605 2); 

; see 0606 2 , 

3; 2 0607 2 ! We have to recalculate the viewports and refresh the screen. 
3: 6284 0608 2 

3 geo 0609 2 phn$fresh_screen(false); 

; 286 0610 2 

; 287 0611 2 return; 

; 288 0612 2 

; «289 0613 1 end; 


001C 00000 eENTRY PHNSUNHOLD ny reve R2,R3,R4 
54 09006 CF 9E 00002 MOVAB PHNSGQ PUBREA 
51 94 00007 CLRB  _UNHOLDABLE 
52 00 B4 D0 00009 MOVL Ueinéoo PUBHEAD, 
50 64 9E 0000D 1$ MOVAB PHN$GQ _PUBHEAD, “RO 
50 52 0100010 « CMPL P, RO™ 
15 13 00013 BEQL = 3 
OA OOFO C2 02 €0 00015 BBS #2, 240(P), 2$ 
05 OOFO C2 £9 0001B BLBC 0-24 
51 01 90 00020 MCVB ss #1, UNHOLDABLE 
. 05 11 00023 BRB 3s" 
52 62 DO 00025 2$: MOVL  (P), P 
e 11 0006 BRB 1 
0c 1 £8 0002A 38: BLBS  UNHOLDABLE, 4$ 
000000006 8F DD 900¢0 PUSHL #PHNS NOHOLDS 
0000G CF 01 FB 000 CALLS . PANSINFORM 
04 00038 RET 
52 00 B84 DO 00039 4$: MOVL § @PHN$GQ_PUBHEAD, 
50 64 9E 00030 5$: MOVAB PHN$GQ_PUBHEAD, “RO 
50 52 01 00049 CMPL =o, - RO 
3¢ 13 0004 BEQL 
2E OOF O 23 03 e9 es BBS. Ms 5 gabcp> "$ 
£8 ooF2 ¢ 7 Goace CVTWL 46 .242(P 
50 06 9009 INCL R 
OOF2 C2 50 BO 00055 MOVW =. RO, call 


Oo 
“i 
~ 


ooo COOCOCooO 
Myvi VIVIVMIVIVviV 
20D COONAN 
WrO —OOVIOoO— Oo 


ooo 
wiv 
wooo 
NSO 


__—- nee eS Be TAO OMS BO KO Se TOMMOODA BO KOSH TO MNMOOOZ SO AC KH TO VOCOW 


i 
| 
| 
| 
| 
| 


s-32 v4.0- 


YBMONE . ERCSSTACKCHDS B49: 1 


Ax-1 


g Commands 


PHNSUNHOLD_CMD = Handle UNHOLD Command 


STACKCMDS = Stackin 


STACKCMDS 
v04-000 


on ss 
Owe 


GcoRranzaer-or2a 


OoOoooooooooooooom 
ee eee alee lelelelelelelolola) 


MNOOOd——WOAOOM0C-~s+ oO 
Oo-—- O04 0Or-- Or OOuOr Ou0 


=z 
wi 
ds iv) 
z ax 
_ vw 
a “ 

t v 
a =x 
< nw 
tad a 
[+ x 
@ u 
Sead SP 
2 z 
=x =x 
aa -a 

a 

se 8 w es 
NNeaN 
RaAwMmiz 

“” 
| ad ed 

>oOoer i 

Og oudtw 

Zovwvae 

ar A 

~ @o 

Yura 


OOM — WOOO OICIM Cui 
Ne NOOOMOOMOM Or. CO 


01 


wn 
ww 


00006 


0000G CF 


137 bytes, Routine Base: S$CODE$ + 00B4 


; Routine Size: 
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! and making a TSB to parse the person's spec. 
dec (from_msg_dscClen]); 

status = phn$make_ tsb from _msg_dsc,from_tsb); 
check (.status); 


' If we find one, we clear the ' ‘they have us held" 


p = _..phn$gq_pubhead([0); 

until .p eas phn$ a. ubhead do ( 

-prpu temporary)) one 
-pCpub_¥ “Rasu eld) 


if cence 5 torges tot ub. b. tsb],from_tsb) then ( 
hasu “= false; ~ 
onnttresh puneté - ; 


= oe L_flink]; 


if (not 


16 
STACKCMDS = Stacking Commands 18-Sep-1984 0g: 18:19 AX-11 B 
PHNSUNHELD = Handle Unheld Message 14-Sep-1984 12:535:3 PHONE .S 
pete 1 Rsbttl "PHNSUNHELD = Handle Unheld Message' 
0616 1 "Punettonel Description: 
0617 1! This steering eone br routine handles the unheld message, which is sent 
0618 1! to us when someone Aas.as us off hold. We have to clear the flag 
0619 71! that says we are held 
pest 1 i 
0621 1! Formal Parameters: 
boss 1! rom_msg Address of descriptor of string containing 
0623 1 | the node/user name of the sender. It is 
pose : followed by an eofrom character. 
$658 1! Implicit Inputs: 
0627 1! global data 
0628 1! 
Rog? 1 | Implicit Outputs: 
0630 1 | global data 
0631 1! 
b636 1 ' Returned Value: 
0635 1! none 
0634 1! 
0635 1! Side Effects: 
0636 1! 
0637 1 j- 
0638 1 
0639 1 
set § global routine phn$unheld(from_msg): novalue = begin 
0642 2 bind 
0643 2 from_msg_dsc = .from_msg: descriptor; 
0644 2 
0645 2 local 
0646 2 status: long, 
0647 2 from_tsb: tsb, 
0648 2 p: ref pub; 
0649 2 
2 
2 
2 
2 
2 
2 
; 
2 
3 
4 
4 
4 
3 
3 


! We begin by agryetins the message descriptor to exclude the eofrom character 


! Now we scan the PUB chain, Looking for the PUB pogrecent ing this person. 
ag 


Routine Size: 


53 
54 


SCODES 


STAC 
PHNS 
0671 ); 
bo7¢ 
067 
0674 
0675 


KCMDS = Stacking Commands 
UNHELD = Handle Unheld Message 


return; 
1 end; 
000C 
5E FFIC §=6CE 4 
04 BC B 
5E OD 
04 AC ODD 
0000G CF 02 FB 
09 50 £8 
50 DD 
00000000G 00 01 FB 
52 0000G DF 0d0 
50 0000G CF 9E 
50 52 01 
29 «(13 
53 OOFO C2 9E 
1B 63 02 €0 
17 63 01 €1 
5E OD 
OC A2 OF 
0000G CF 02 FB 
OA 50 €9 
63 02 8A 
52 0D 
0000G CF 01 FB 
52 62 D0 
CD 11 
04 
89 bytes, Routine Base: $CODE$ + 013D 


0676 1 
0677 0O end eludom 


Bytes 


PSECT SUMMARY 


406 NOVEC,NOWRT, RD 


mo 
AM 


3$: 
4$: 


ee ele olelololol el olololololelolololololojlololq) 
WWE & & & AAAI PPI = — — COCCOO 
DWOWMOA OP -MOWOL "SS SUOONL "OY NNO 


Attributes 
. EXE,NOSHR, 


~EXTRN 


LCL, 


he vt ie aa R2,R3 


=228(SP), § 
aFROM_MSG 
FROM_MSG 

#2, PHNSMAKE_TSB 
STATUS, 1$ 
STATUS 


#1, LIBSSIGNAL 
@PHN$GQ_PUBHEAD, P 
PHNSGQ_PUBHE AD, RO 


P, RO 
4$ 
240(P), R3 
#2, (R$), 35 
#1, (R3), 35 
SP 

2 


12(P) 

"2, PHNSCMP_TARGET 
#2, (R3) 

#1, PHNSFRESH_HOLD 
(PS, P 


LIBSSIGNAL 


REL, 


CON,NOPIC ,ALIGN(2) 
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STACKCMDS STACKCMDS = Stacking Commands 1b-S6p-1984 0g: 19:19 AX-11 Ot ise 38 V4.0-74 Page 13 
v04-000 PHNSUNHELD = Handle Unheld Message 14-Sep-1984 12:53:3 PHONE. SRCJSTACKCMDS.B32;1 (6) 
Library Statistics 
cocese Pages Processing 
File Total Loaded Percent Mapped Time 

-$255$DUA28: CSYSLIBIJSTARLET.L32;1 9776 0 0 581 00:00.7 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMJZE)/LIS=LIS$:STACKCMDS/OBJ=OBJ$:STACKCMDS MSRC$:STACKCMDS/UPDATE=(ENH$:STACKCMDS) 
"; Size: 406 code + 0 data bytes 
3; Run Time: 00:07.2 
; Elapsed Time: 00:27.2 
3 Lines/CPU Min: 5618 
; Lexemes/CPU-Min: 27543 
; s 


me Used: 93 page 
a 


Compilation Complete 


ie 


Se ee eee == ae 9 — 
Ny 'T 
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